PROGRAM busca

INTEGER :: cont

cont = 1 + 1 + a

ENDPROGRAM  busca